home *** CD-ROM | disk | FTP | other *** search
/ Dark Star 7 / Dark_Star_07_1996_-_de_Side_B.d64 / vier gewinnt (.txt) < prev   
Commodore BASIC  |  2023-02-26  |  3KB  |  83 lines
  1. 10 rom=198:poke53280,1:poke53281,1:rem            for commodore 64
  2. 100 gg$=" "
  3. 120 dima(7),a%(7),b(7),b%(8,8),n$(2):sq=49:open1,0,0:m$="[147]"
  4. 125 print m$:input" deutsche anleitung  j/n ";dt$
  5. 126 if dt$="j"then gosub900:goto810
  6. 130 printm$"do you need instructions y/n "
  7. 140 getu$:ifu$=""then140  
  8. 150 ifu$<>"y"andu$<>"n"then140  
  9. 160 ifu$="y"then700  
  10. 170 forj=1to2:printm$"name spieler"j"(max.=6 buchst.) ? ";:input#1,n$(j)
  11. 180 iflen(n$(j))>6thenn$(j)=mid$(n$(j),1,6)
  12. 190 next
  13. 200 print"[147][144]":forz=1to15
  14. 210 print" [214][214]   [214][214]   [214][214]   [214][214]   [214][214]   [214][214]   [214][214]   [214][214]"
  15. 220 next
  16. 230 forz=1to2:print" [214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214]":next
  17. 240 print"    1    2    3    4    5    6    7"
  18. 250 forf=1to7:reada(f):next
  19. 260 data1187,1267,1347,1427,1507,1587,1667
  20. 270 forf=1to7:readb(f):next
  21. 280 data1027,1032,1037,1042,1047,1052,1057
  22. 290 printgg$;n$(1)"=  [146]="wh;"          "n$(2)"=[166][166]="bl
  23. 300 getr$:ifr$=""then300  
  24. 310 ifval(r$)=0orval(r$)>7then300  
  25. 320 r=val(r$)
  26. 330 ifa%(r)=7then300  
  27. 340 ifn=160thenn=102:poke1989,81:poke56261,0:poke2012,32:goto360
  28. 350 n=160:poke2012,81:poke56284,0:poke1989,32
  29. 360 gosub400  :a%(r)=a%(r)+1:goto430  
  30. 370 sq=sq-1:pokerom,0
  31. 380 ifsq=0thenprint""spc(15)"no winner!!":forbb=1to1500:next:goto640  
  32. 390 goto300  
  33. 400 forw=b(r)toa(7-a%(r))+5*rstep40
  34. 410 forq=wtow+2:pokeq+40,n:pokeq-40,32:next:pokea,n/2:fort=1to5:next:pokea,0
  35. 420 next:return
  36. 430 b%(r,a%(r))=n
  37. 440 forh=a%(r)to1step-1:ifb%(r,h)<>nthen460  
  38. 450 co=co+1:next
  39. 460 ifco>=4then570  
  40. 470 forh=1to3:ifb%(r+h,a%(r))=nthennext
  41. 480 fori=1to3:ifb%((r-i),a%(r))=nthennext
  42. 490 ifi+h>4then570  
  43. 500 forh=1to3:ifb%(r+h,a%(r)+h)=nthennext
  44. 510 fori=1to3:ifb%(r-i,a%(r)-i)=nthennext
  45. 520 ifi+h>4then570  
  46. 530 forh=1to3:ifb%(r-h,a%(r)+h)=nthennext
  47. 540 fori=1to3:ifb%(r+i,a%(r)-i)=nthennext
  48. 550 ifi+h>4then570  
  49. 560 co=0:goto370  
  50. 570 forl=1to3:forq=0to255step5:pokea,q:next:pokea,0:next
  51. 580 forw=1074to1114step40
  52. 590 forq=wtow+2:pokeq,n:next:next
  53. 600 print""spc(14)"is the winner !!!"
  54. 610 forrr=1to3000:next
  55. 620 ifn=102thenbl=bl+1:goto640  
  56. 630 wh=wh+1
  57. 640 restore:forxx=1to7:a%(xx)=0:next:sq=49:co=0
  58. 650 forxx=1to7:forxv=1to7:b%(xx,xv)=0:next:next
  59. 660 print"";:fortv=1to3:print"                                       ";:next
  60. 670 print:forz=1to15
  61. 680 print"[144] [214][214]   [214][214]   [214][214]   [214][214]   [214][214]   [214][214]   [214][214]   [214][214]"
  62. 690 next:pokerom,0:n=102:poke1989,81:poke2012,32:goto250
  63. 700 print"[147]   ";
  64. 710 poke53272,23:foree=1to22:print"c[207][206][206][197][195][212] f[207][213][210][157][157][157][157][157][157][157][157][157][157][157]";:next
  65. 720 fort=1to2000:next:print"[147]"
  66. 730 print"   t[200][197] [207][194][202][197][195][212] [207][198] [212][200][197] [199][193][205][197] [201][211] [212][207] [199][197][212] [198][207][213][210][207][198] [217][207][213][210] [208][201][197][195][197][211] [201][206] [193] [210][207][215]";
  67. 740 print". y[207][213] [195][193][206] [196][207] [212][200][201][211][200][207][210][201][218][207][206][212][193][204][204][217],[214][197][210][212][201][195][193][204][204][217],[207][210] [196][201][193][199][207][206][193][204][204][217]."
  68. 750 print"  t[207] [205][207][214][197],[217][207][213] [193][206][196][160][217][207][213][210] [207][208][208][207][206][197][206][212] [212][193][203][197] [212][213][210][206][211][160][196][210][207][208][208][201][206][199] [217][207][213][210] [207][215][206] ";
  69. 760 print"[195][207][204][207][210][197][196] [208][201][197][195][197] [201][206][212][207] [207][206][197][160][207][198][160][212][200][197][160][211][197][214][197][206][160][206][213][205][194][197][210][197][196][160][195][207][204][213][205][206][211].y[207][213] [196][207][160][212][200][201][211]";
  70. 770 print" [194][217] [212][217][208][201][206][199][160][212][200][197][160][206][213][205][194][197][210][160][207][198][160][212][200][197][160][195][207][204][213][205][206][201][206] [215][200][201][195][200][160][217][207][213][160][215][201][211][200][160][212][207][160][196][210][207][208][160][193]";
  71. 780 print" [208][201][197][195][197].i [215][201][204][204][160][211][201][199][206][193][204][160][201][198][160][207][206][197] [207][198] [217][207][213] [215][201][206][211][160][193][206][196] [212][197][204][204][160][217][207][213][160][215][200][207][160][200][193][211][160][215][207][206]";
  72. 790 print".  i [215][201][204][204] [208][210][201][206][212] [193] [194][193][204][204] [213][206][196][197][210] [217][207][213][210] [206][193][205][197][160][215][200][197][206][160][201][212]'[211] [217][207][213][210] [212][213][210][206].";
  73. 800 print"w[200][201][212][197] [199][207][197][211] [198][201][210][211][212].";
  74. 810 printspc(7)"press any key !"
  75. 820 getu$:ifu$<>""thenpoke53272,21:goto170
  76. 830 goto820  
  77. 900 print"[147] connect four - fuer 2 mitspieler"
  78. 901 print" [163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]"
  79. 905 print"das ziel ist es 4 steine in einer reihe"
  80. 910 print"zu plazieren,entweder in horizontaler"
  81. 915 print"vertikaler oder diagonaler folge."
  82. 920 return
  83.